home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / baud173c.zip / R-PCBAUD.MRG < prev    next >
Text File  |  1992-02-29  |  1KB  |  39 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 9-5-1991  Size 159962 bytes
  4. * ------------[ Created 02-29-1992 ]------------
  5. 175 GOSUB 5344
  6.     CALL CountLines (MaxEntries)
  7.     REDIM ZCategoryName$(MaxEntries),ZCategoryCode$(MaxEntries),_
  8.           ZCategoryDesc$(MaxEntries)
  9.     CALL InitFMS (ZNumCategories)
  10.     ZMaxMsgLines = ZMaxMsgLinesDef
  11.     IF (NOT ZLocalUser) AND (NOT ZSubBoard) THEN _
  12.        CALL OpenCom (ZModemInitBaud$,",N,8,1")
  13.     IF NOT ZSubBoard THEN _
  14.        CALL SetEcho (ZDefaultEchoer$)
  15.     ZNodeWorkFile$ = ZNodeWorkDrvPath$ + _
  16.                       "NODE" + _
  17.                       ZNodeFileID$ + _
  18.                       "WRK"
  19.     ZSecsPerSession! = ZMinsPerSession * 60!
  20.     LogIndex = 1                                                     ' TC090119
  21.     IF NOT ZLocalUserMode THEN _
  22.        IF NOT ZExitToDoors THEN _
  23.           GOTO 180 _
  24.        ELSE IF NOT ZLocalUser THEN _
  25.                GOTO 180
  26.     ZLocalUser = ZTrue
  27.     ZBPS = -6
  28.     ZBaudTest! = 9600
  29.     ZCBaud$ = "9600"                                                 ' RM022301
  30.     ZEightBit = ZTrue
  31.     ZSnoop = ZTrue
  32. '   LogIndex = 1                                                     ' TC090119
  33.     IF ZExitToDoors THEN _
  34.        CALL AMorPM : _
  35.        CALL ReadProf : _
  36.        GOTO 410
  37.     GOSUB 178
  38.     GOTO 345
  39.